home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / SECURITY / 0058.ZIP / PC-ZERO.151 < prev    next >
Text File  |  1984-04-02  |  539b  |  14 lines
  1. 1000 PRINT " PC-ZERO:    Zero out and Delete/Erase files" 
  2. 1020 PRINT "  ": PRINT " ": INPUT "Enter File name to be Deleted ";FL$ 
  3. 1030 OPEN "R",1,FL$,128
  4. 1035 SZ! = LOF(1) 
  5. 1040 SIZE% = SZ! / 128! : Z$=STRING$(128,255) 
  6. 1044 IF SZ! <> (SIZE% * 128!) THEN SIZE% = SIZE% + 1 
  7. 1050 FIELD #1, 128 AS SECTOR$ 
  8. 1060 FOR J%=1 TO SIZE% : LSET SECTOR$ = Z$ : PUT #1, J% : NEXT J% 
  9. 1070 CLOSE 1
  10. 1080 PRINT " Erased ";(SIZE% * 128!);" bytes of file: "; FL$ 
  11. 1090 KILL FL$
  12. 1100 PRINT " File ";FL$;" Zeroed and Deleted /erased"
  13. 1110 END
  14.